home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Modify / l-divide < prev    next >
Lisp/Scheme  |  1998-08-11  |  932b  |  20 lines
  1. l-divide seed count divide length exclude list
  2.  
  3. Use l-divide to create by division variant values from a note-length list; the overall zone-length of the list will always remain unaltered. 
  4.  
  5. (setq len (1/4 -1/8 1/16 1/16 1/32 -3/32 1/8 1/4))
  6.  
  7. (l-divide .23 1 2 'min nil len)
  8. => (1/4 -1/8 1/16 1/16 1/64 1/64 -3/32 1/8 1/4)
  9.  
  10. (l-divide .23 1 4 '1/8 nil len)
  11. => (1/4 -1/8 1/16 1/16 1/32 -3/32 1/32 1/32 1/32 1/32 1/4)
  12.  
  13. (l-divide .23 2 2 'max nil len)
  14. => (1/8 1/8 -1/8 1/16 1/16 1/32 -3/32 1/8 1/8 1/8)
  15.  
  16. (l-divide .23 1 2 'max '1/4 len)
  17. => (1/4 -1/8 1/16 1/16 1/32 -3/32 1/16 1/16 1/4)
  18.  
  19. In the examples the parameter count sets the number of division operations in the list. The parameter divide sets the division denominator. The choice of length value to be divided is set by a length parameter offering min and max options. The use of exclude enables a value that might have been processed under the max or min rule to be excluded.
  20.